10 GOSUB2130:PRINT"[147]":POKE53281,.:POKE53280,.
20 DIML$(38),M$(38),W$(200),L1$(38),H$(200):PRINT"[147]","   [208]LEASE WAIT
30 S1[178]54272:[129]L[178]S1[164]S1[170]24:[151]L,.:[130]:[151]S1[170]24,15:[151]S1[170]5,.
40 [151]S1[170]6,240:[151]S1[170]3,8:[129]L[178].[164]8:[135]A(L):[130]:DT$[178]".":DS$[178]"-"
50 [129]L[178]0[164]38:[135]L$(L),M$(L):L1$(L)[178][199]([198](L$(L))[170]128):[130]
60 SP$[178]"                                       "
70 [135]W$(Z):[139]W$(Z)[179][177]"#"[167]Z[178]Z[170]1:[137]70
80 [135] H$(T)
90 [139]H$(T)[178]"#"[167]H$(T)[178]H$(T[171]1)
100 [139]H$(T)[179][177]"%"[167]T[178]T[170]1:[137]80
110 PU[178]Z:[153]"STOPLOAD"[199](8)[199](14):[141]390:L5[178].:M5[178].:K[178].:TL$[178]""
120 [153]"SYS  RIGHT$NTERNATIONAL (null)ORSE LENODE (null)RANSLATER":
130 [153][163]10)"LISTPEEKY MID$AMES LEN. RIGHT$ANNI
140 PRINT"[159]                [205]ENU[146]"
150 PRINT" [153]1.[150]  [211]EE CHART"
160 PRINT" [153]2.[150]  [212]RANSLATE FROM [197]NGLISH TO [205]ORSE":C$="[144]"
170 PRINT" [153]3.[150]  [212]RANSLATE FROM [205]ORSE TO [197]NGLISH"
180 PRINT" [153]4.[150]  [212]EST YOUR ABILITY TO TRANSLATE"
190 PRINT" [153]5.[150]  [195]USTOMIZE [205]ORSE [195]ODE KEYS"
191 PRINT" [153]6.[150]  [209][213][201][212]":GOSUB390
200 PRINT" [208]LEASE SELECT YOUR CHOICE :":PRINT""SP$
210 GETA$:IFA$=""THEN210
220 IFA$<"1"ORA$>"6"THEN210
230 LC=S1+1309+(VAL(A$)-1)*80:FORL=LCTOLC+34:POKEL,1:NEXT:FORD=1TO300:NEXT
240 ONVAL(A$)GOTO770,870,1140,1490,3000,1420
250 PRINT"[175][153][157]";:T$="":P$="":CT=0:C1=0
260 GETA$:GOSUB360:IFA$=""THEN260
270 L=LEN(T$):A=ASC(A$):IF(A=47ORA=63)ANDTT=1THENGOSUB2000:GOTO260
280 IFA=13ANDL>.THENPRINT" ";:RETURN
290 IF(A=20ORA=95)ANDL>.THENT$=LEFT$(T$,L-1):A$=CHR$(20):GOTO350
300 IFA$=" "ANDL<TL+1THEN340
310 IFL>TLTHEN260
311 IFM5=0THEN330
312 IFA=ASC(DS$)THENA=45:A$=CHR$(A)
313 IFA=ASC(DT$)THENA=46:A$=CHR$(A)
320 IFA<>45ANDA<>46THEN260
330 IFL5=1THENIF(A<65ORA>90)AND(A<48ORA>57)AND(A<>46)AND(A<>63)AND(A<>44)THEN260
340 T$=T$+A$:IFM5=1THENGOSUB450
350 PRINT"[153]"A$;:PRINT"[175][153][157]";:GOTO260
360 CT=CT+1:IFCT<3THENRETURN
370 CT=.:C1=C1+1:IFC1>8THENC1=.
380 POKE646,A(C1):PRINT"[175][157]";:RETURN
390 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][154]";:RETURN
400 PRINT".";
410 POKES1+1,50:POKES1+4,65:FORT=1TO73:NEXT:POKES1+4,64:RETURN
420 PRINT"-";
430 POKES1+1,50:POKES1+4,65:FORT=1TO187:NEXT:POKES1+4,64:RETURN
440 FORT=1TO163:NEXT:RETURN
450 IFA$="."THENGOSUB410:RETURN
460 IFA$="-"THENGOSUB430:RETURN
470 RETURN
480 DATA0,11,12,15,1,1,12,11,0
490 DATAA,.-,B,-...,C,-.-.,D,-..,E,.,F,..-.,G,--.,H,....,I,..,J,.---
500 DATAK,-.-,L,.-..,M,--,N,-.,O,---,P,.--.,Q,--.-,R,.-.,S,...,T,-
510 DATAU,..-,V,...-,W,.--,X,-..-,Y,-.--,Z,--..
520 DATA0,-----,1,.----,2,..---,3,...--,4,....-,5,.....,6,-....,7,--...
530 DATA8,---..,9,----.,",",--..--,".",.-.-.-,?,..--..
540 DATATHE,QUICK,BROWN,FOX,JUMPED,OVER,THREE,LAZY,DOGS,HELLO,HELP
550 DATASTRANDED,ISLAND,MAYDAY,SEND,OFF,ON,GOODBY,MONDAY,TUESDAY,THURSDAY
560 DATAFRIDAY,SATURDAY,SUNDAY,WEDNESDAY,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
570 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SUMMER,WINTER,FALL
580 DATASPRING,COMPUTER,SOFTDISK,YESTERDAY,TOMORROW,TODAY,YELLOW,BLUE,RED
590 DATAGREEN,COPPER,IRON,GOLD,SILVER,BOMB,EXPLOSIVE,DYNAMITE,BIG,SMALL,LITTLE
600 DATA123,234,345,456,567,678,789,890,153,523,764,".",","
610 DATAGIANT,GUARD,OCEAN,POOL,WINDOW,PENCIL,PEN,WHALE,SHARK,FOOTBALL,BASEBALL
620 DATA"#"
630 DATAAN ARTICLE,ADJECTIVE,COLOR,ANIMAL,PAST VERB,ADVERB,SPELLED OUT NUMBER
640 DATAADJECTIVE,ANIMAL,GREETING,"*[211]END [198]OR ----!"
650 DATA"*[212]HIS USUALLY HAPPENS ON A ISLAND","*[193] PIECE OF LAND",HELP SIGNAL
660 DATAVERB,ADVERB,ADVERB,"*[193]DIOS!","*[196]AY OF A WEEK","#"
670 DATA"#","#","#","#","#","MONTH","#","#","#","#","#","#","#","#","#","#","#"
680 DATASEASON,"#","#","#","*[217]OU ARE NOW PLAYING WITH THIS","*[193]N AWESOME COMPANY"
690 DATA"*[206]OT TOMORROW","*[206]OT YESTERDAY","*[201]T'S A NEWS SHOW",COLOR,"#","#"
700 DATA"#",METAL,"#","#","#","*[203][193][193][208][207][207][215]!","*[203][193][193][194][207][207][205]!","*[203][193][193][208][207][215][201][197]",ADJECTIVE
710 DATA"#","#",NUMBER,"#","#","#","#","#","#","#","#","#","#",PUNCTUATION,"#"
720 DATAADJECTIVE,VERB,"*[199]IGANTIC BODY OF WATER","*[204]OTS OF [195]HLORINE"
730 DATA"*[217]OU LOOK THROUGH THIS","*[217]OU WRITE WITH THIS"
740 DATA"#",MAMMAL,FISH,"*[201]T'S USUALLY PLAYED IN WINTER"
750 DATA"*[201]T'S USUALLY PLAYED IN SPRING"
760 DATA"%"
770 PRINT"[147][159]     [201]NTERNATIONAL [205]ORSE [195]ODE [195]HART":GOSUB390:PRINT""
780 FORL=0TO12:PRINT"  "L1$(L)" "M$(L)TAB(15)""L1$(L+13)" "M$(L+13)TAB(28);
790 PRINT""L$(L+26)" "M$(L+26):NEXT:IFRTTHENRT=0:RETURN
800 PRINT""
810 PRINT"[158]            [208]RESS [193]NY [203]EY               ";:POKE198,0
820 WAIT198,255:POKE198,0:GOTO110
830 FORU=1TO10
840 FORT=1264+L-LEN(TL$)TO1264+L-1:POKET,PEEK(T)AND127:POKET+S1,7:NEXT
850 FORT=1264+L-LEN(TL$)TO1264+L-1:POKET,PEEK(T)OR128:POKET+S1,10
860 NEXT:NEXT:POKES1+4,32:L=L+1:TL$="":K=.:GOTO1270
870 L5=1:TL=78+80
880 PRINT"[147][159][212]YPE IN AN [197]NGLISH SENTENCE THEN ":X1=0:C$="[159]"
890 PRINT"PRESS [150][210][197][212][213][210][206][146][159] WHEN DONE."
900 GOSUB250:PRINT:GOSUB1340
910 FORL=1TOLEN(T$):P$=MID$(T$,L,1)
920 IFP$=CHR$(32)THEN1040
930 K=K+1
940 IFP$=L$(K-1)THEN980
950 IFK<39THEN930
960 IFRTTHENRT=0:RETURN
970 GOTO800
980 IFPOS(X)>33ANDC$="[159]"THENPRINT:PRINT"":POKE199,1:X1=X1+1:IFX1>3THENX1=.:GOTO1000
990 M$=M$(K-1):PRINT"[145]"C$;P$"[157][157]";:GOSUB1100:K=0:NEXTL:GOTO960
1000 PRINT""
1010 PRINT"[129]       [208]RESS ANY KEY TO CONTINUE.      ":POKE198,0:WAIT198,255
1020 X1=0:PRINT"[145][146]                                       ":GOSUB1340
1030 GOTO980
1040 IFPOS(X)>33THENPRINT:PRINT"":POKE199,1:X1=X1+1:IFX1>3THENX1=0:GOTO1060
1050 PRINT" ";:GOSUB440:K=0:NEXTL:GOTO960
1060 PRINT""
1070 PRINT"[129]       [208]RESS ANY KEY TO CONTINUE.      ":POKE198,0:WAIT198,255
1080 X1=0:PRINT"[145][146]                                       ":GOSUB1340
1090 K=0:NEXTL:GOTO960
1100 PRINT" ";:FORM=1TOLEN(M$):P$=MID$(M$,M,1)
1110 IFP$="-"THENGOSUB420
1120 IFP$="."THENGOSUB400
1130 NEXT:RETURN
1140 M5=1:TL=150:SP=0
1150 PRINT"[147][159][212]YPE IN [205]ORSE [195]ODE PRESS [210][197][212][213][210][206][146][159]"
1160 PRINT"    WHEN DONE.":GOSUB1300:POKE214,10:PRINT:RT=1:GOSUB780
1170 PRINT"":GOSUB250:PRINT:GOSUB1380
1180 FORL=1TOLEN(T$):P$=MID$(T$,L,1):IFP$=" "ANDTL$=""THENPRINT" ";:NEXTL:GOTO1260
1190 IFP$=" "ORP$=""THENGOSUB1210:NEXTL:GOTO1260
1200 TL$=TL$+P$:NEXTL:SP=1
1210 K=.
1220 K=K+1
1230 IFTL$=M$(K-1)THENPRINTL$(K-1);:TL$="":GOTO1270
1240 IFK<39THEN1220
1250 PRINT"[150]*[197][210][210]*";:POKES1+1,3:POKES1+4,33:L=L-1:GOTO830
1260 GOTO800
1270 IFMID$(T$,L+1,1)=" "THENPRINT" ";:L=L+1:GOTO1270
1280 IFSP=1THEN800
1290 RETURN
1300 PRINT"[159][208]UT 2 SPACES BEFORE EACH [158]WORD."
1310 PRINT"[159][208]UT 1 SPACE BEFORE EACH [158]LETTER."
1320 PRINT"[129][213]SE THE '"DT$"' AND '"DS$"' KEYS."
1330 RETURN
1340 PRINT"":FORT=1TO12
1350 PRINT"[159]                                       ":NEXT:PRINT""
1360 PRINT"[155] [212]RANSLATION IS:                       ":POKE199,1
1370 RETURN
1380 PRINT"":FORT=1TO12
1390 PRINT"[159]                                        ";:NEXT:PRINT""
1400 PRINT"[155] [212]RANSLATION IS:                        ";
1410 RETURN
1420 PRINT" [196]O YOU WISH TO QUIT TO [158][204][207][193][196][211][212][193][210]? [152]([217]/[206])"
1430 GETA$:IFA$=""THEN1430
1440 IFA$="[217]"ORA$="Y"THEN 1460
1450 IFA$="N"ORA$="[206]"THENPRINT"";:GOTO 130
1460 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
1470 IFER<>63 THEN PRINT"[147]":END
1480 LOAD"HELLO CONNECT",8,1
1490 PRINT"[144][147][158]         *** [205]ORSE [195]ODE [212]ESTS ***   ":GOSUB390:TT=0
1500 PRINT" [193].[156]  [205]ORSE [212]RANSLATION [212]EST"
1510 PRINT" [194].[156]  [197]NGLISH [212]RANSLATION [212]EST"
1520 PRINT" [195].[156]  [210]ETURN TO [205]AIN [205]ENU"
1530 GOSUB390
1540 PRINT"[149]     [215]HICH ONE?"
1550 GETA$:IFA$=""THEN1550
1560 IFA$<"A"ORA$>"C"THENGOSUB410:GOTO1550
1570 ONASC(A$)-64GOTO1880,1580,110
1580 PRINT"[147][158]  *** [212]RANSLATING [197]NGLISH TO [205]ORSE ***":GT=1
1590 GOSUB390
1600 RN=INT(RND(1)*PU):GOSUB1750
1610 PRINT"[159] [212]HE [197]NGLISH WORD IS:"
1620 PRINT""TAB(20-LEN(W$)/2)"[129]"W$
1630 PRINT"[152][212]YPE IN THE [205]ORSE EQUIVALENT:":M5=1:L5=0:TL=39:GOSUB250
1640 IFT$+" "=M$THENGOSUB1790:GOTO1680
1650 GOSUB1820:RT=1:T$=W$
1660 GOSUB2100:PRINT"[129][195]ORRECT TRANSLATION FOR "W$"[146][129] IS:[158]"
1670 GOSUB910
1680 POKE214,22:PRINT
1690 PRINTCL$"[208]RESS [195] TO CONTINUE - [193]NY OTHER ABORTS":GOSUB1730:FORT=1TO100:NEXT
1700 GETA$:IFA$=""THEN1680
1710 IFA$="C"THENONGTGOTO1580,1880
1720 GOTO1490
1730 Q=1-Q:POKE646,Q*8+6:RETURN
1740 REM WORD INTO MORSE
1750 M$="":W$=W$(RN):FORL=1TOLEN(W$):P$=MID$(W$,L,1):M=0
1760 IFP$=L$(M)THENM$=M$+M$(M)+" ":GOTO1780
1770 M=M+1:IFM<39THEN1760
1780 NEXT:RETURN
1790 POKE214,9:PRINT:FORL=1TO80
1800 POKE199,Q:PRINT"[159]                 [195][207][210][210][197][195][212]               [145][144]":Q=1-Q:
1810 POKES1+1,L*2+Q*10:POKES1+4,17:NEXT:POKES1+4,16:RETURN
1820 FORL=-22TO22:T=ABS(L):POKE646,T:POKES1+4,33:POKES1+1,T
1830 POKE214,7:PRINT:PRINTTAB(T)"                 "
1840 PRINTTAB(T)"      [215][210][207][206][199]      "
1850 PRINTTAB(T)"                 [144]"
1860 NEXT:POKES1+4,32
1870 RETURN
1880 PRINT"[147][158]  *** [212]RANSLATING [205]ORSE TO [197]NGLISH ***":GT=2:M5=0:L5=1:TL=12
1890 GOSUB390:PRINTSPC(9)"[129][198]OR A HINT, PRESS "CHR$(34)"?"CHR$(34)"."
1900 RN=INT(RND(1)*PU):GOSUB1750
1910 PRINT"[155] [212]HE [205]ORSE [195]ODE IS:":T$=W$:M1$=M$:RT=1:TT=1:HP=0
1920 PRINT""TAB(20-LEN(M1$)/2);:GOSUB910:PRINT" ":M$=M1$
1930 PRINT"[154][212]HE [197]NGLISH EQUIVALENT IS:"
1940 GOSUB250
1950 IFT$=W$THENGOSUB1790:GOTO1680
1960 GOSUB1820
1970 GOSUB2100:PRINT"[159][212]HE CORRECT WORD FOR THE [205]ORSE CODE:"
1980 PRINTM$
1990 PRINT"IS [150]"W$:GOTO1680
2000 PX=POS(0):HP=1-HP:IFHPTHEN2060
2010 TY$="[156][212]HE FIRST LETTER OF THE WORD IS [158]"+MID$(W$,1,1)+"[156]."
2020 GOSUB2100:POKE214,16:PRINT
2030 PRINTTAB(19-(LEN(TY$)-2)/2)TY$
2040 GOTO2050
2050 PRINT"";:PRINTTAB(PX);:RETURN
2060 IFLEFT$(H$(RN),1)="*"THEN2080
2070 TY$="[149][201]T'S A":QQ$=LEFT$(H$(RN),1)
2072 IFQQ$="A"ORQQ$="E"ORQQ$="I"ORQQ$="O"ORQQ$="U"THENTY$=TY$+"N"
2075 TY$=TY$+" "+H$(RN)+"[149].":GOTO2020
2080 H$=RIGHT$(H$(RN),LEN(H$(RN))-1)
2090 TY$="[158]"+H$+"[158].":GOTO2020
2100 P=PEEK(214)-2:POKE214,14:PRINT
2110 FORL=1TO8:PRINT"                                       ":NEXT
2120 PRINT:POKE214,P:PRINT:RETURN
2130 POKE53265,PEEK(53265)AND239:POKE53280,00:POKE53281, 1:PRINTCHR$(142)"[147][142]";
2140 PRINT"[154]                                                LOADSTAR PROUDLY PRESE";
2150 PRINT"NTS                                                                     ";
2160 PRINT"                         [146]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[154]             [146][180]";
2170 PRINT"MORSECODE[170] [154]            [146][180][144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
2180 PRINT"[170] [154]            [146][180][170] [154]            [146][180]B";
2190 PRINT"YJAMESC.IANNI[170] [154]            [146][180][170] [154]  ";
2200 PRINT"          [146][180][155].-..---.--.....-.-[170] [154]            [146][180][155].-......";
2210 PRINT"-...----...[170] [154]            [146][180][155]..-..----[170] [154]     ";
2220 PRINT"       [146][180][170] [154]            [146]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
2230 PRINT"[175][175][175][175][175][175][175][175][186] [154]                                        [154]                 ";
2240 PRINT"                                    [146][156]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[154]       ";
2250 PRINT"        [146][156][180][150]COPYRIGHT1988[156][167] [154]              [146][156]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
2260 PRINT"[175][175][175][175][175][175][175][175][175][186] [154]                                        [154]                ";
2270 PRINT"                                                                      [160] ";
2280 PRINT"       PRESS (SPACE) TO CONTINUE        [160]                               ";
2290 PRINT"     "
2300 POKE2023,96+128:POKE56295,14
2310 POKE53265,PEEK(53265)OR16
2320 GETA$:IFA$<>" "THEN 2320
2330 RETURN
3000 PRINT"[147][158]  *** [195][213][211][212][207][205][201][218][201][206][199] [205][207][210][211][197][160][195][207][196][197][160][203][197][217][211] ***"
3001 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
3005 PRINT"[152][195]URRENT [203]EYS ARE '"DT$"[152]' FOR [196][207][212][211]
3006 [153]"                  AND '"DS$"PRINT#' FOR STR$ATN(null)LEFT$VAL(null)"
3007 [153]"           1PRINT#)CONT LENHANGE STR$OTS"
3008 [153]"           2PRINT#)CONT LENHANGE STR$ASHES"
3009 [153]"           3PRINT#)CONT (null)(null)RIGHT$(null) TO (null)AIN (null)ENU"
3010 [153]"          VALNTER MENU SELECTION
3020 GETA$:IFA$<"1"ORA$>"3"THEN3020
3030 ONVAL(A$) GOTO 3200,3100,110
3040 GOTO 3020
3100 PRINT"   [197]NTER THE [206][197][215] CHARACTER FOR DASHES."
3101 GETA$:IFA$=""THEN 3101
3103 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]" THEN 3101
3104 IFA$=DT$ THEN 3101
3105 DS$=A$:GOTO 3000
3200 PRINT"   [197]NTER THE [206][197][215] CHARACTER FOR DOTS."
3202 GETA$:IFA$=""THEN3202
3203 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]" THEN 3202
3204 IFA$=DS$ THEN 3202
3205 DT$=A$:GOTO 3000